home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / tsqed16.zip / QUOTE.QMA < prev    next >
Text File  |  1991-12-26  |  1KB  |  41 lines
  1. *                                                All rights reserved
  2. * Put > quotes to mail (etc) messages
  3. * By Timo Salmi, Thu 26-Dec-91
  4. *
  5. * To compile these macros apply QMAC QUOTE.MAC QUOTE.QMA /A- /B
  6. *
  7. * The QMAC.EXE macro translator is from
  8. * garbo.uwasa.fi:/pc/editor/qmac215.zip
  9. * (Also the earlier version 2.1 will do).
  10.  
  11. * ┌─────────────────────────────────────────────────────┐
  12. * │ Append a > at the beginning of a single line, ALT 5 │
  13. * └─────────────────────────────────────────────────────┘
  14. @5      MacroBegin BegLine "> " BegLine CursorDown
  15.  
  16. * ┌──────────────────────────────────────────────────┐
  17. * │ Quote the entire message from cursor down, ALT-4 │
  18. * └──────────────────────────────────────────────────┘
  19. @4      MacroBegin
  20.           loop:
  21.             JFalse endloop:
  22.             BegLine
  23.             "> "
  24.             BegLine
  25.             CursorDown
  26.             Jump loop:
  27.           endloop:
  28.  
  29. * ┌────────────────────────────────────────────────┐
  30. * │ Quote the entire message from cursor up, ALT-6 │
  31. * └────────────────────────────────────────────────┘
  32. @6      MacroBegin
  33.           loop:
  34.             JFalse endloop:
  35.             BegLine
  36.             "> "
  37.             BegLine
  38.             CursorUp
  39.             Jump loop:
  40.           endloop:
  41.